home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed2.d64 / swap-mineral (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  229 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 35 IFUW=0THENSYSUU,15
  9. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  10. 45 GETUI$:IFUI$=""THEN45
  11. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
  12. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  13. 60 IFUR=ULTHEN45
  14. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  15. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  16. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  17. 95 IFLEN(US$)=0THEN110
  18. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  19. 105 RETURN
  20. 110 IFUA=46THENRETURN
  21. 115 IFUA=32ANDUR<>0THENRETURN
  22. 120 IFUA>47ANDUA<58THENRETURN
  23. 125 IFUA>64ANDUA<91THENRETURN
  24. 130 IFUA<193ORUA>218THENUI$="":RETURN
  25. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  26. 140 RETURN
  27. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,6:POKEUX,6
  28. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
  29. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
  30. 300 REM DERIVED FROM COMMODORE ONTARIO      EDUCATIONAL SOFTWARE PROJECT 1983
  31. 310 REM PROJECT DIRECTOR: FRANK WINTER
  32. 320 REM PROGRAM NAME: SWAP
  33. 330 REM WRITTEN BY THE SHADOW
  34. 340 REM REVISED BY SANDRA BLANKENFELDT
  35. 350 REM UPDATED BY BILL CUMBERLAND 1990
  36. 400 PRINT"[147]":POKEUT,UL%:POKEUY,5:POKEUX,5:POKE646,0
  37. 405 PRINT"            [201][206][211][212][210][213][195][212][201][207][206][211] [146]"
  38. 410 PRINT" [212]HIS IS A GAME OF [211][215][193][208]. [201] WILL GIVE"
  39. 420 PRINT" YOU A LIST OF WORDS. [217]OU PUT THEM"
  40. 425 PRINT" IN ALPHABETICAL ORDER, TOP TO BOTTOM."
  41. 430 PRINT" [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]      [175][175][175][175][175][175][175][175][175][175][175][175][175]"
  42. 435 PRINT"  [201]F [201] GIVE YOU [146]       [208]UT THEM IN [146]"
  43. 440 PRINT"  THESE WORDS   [146]       THIS ORDER  [146]"
  44. 445 PRINT"      [208][207][212][193][212][207]              [193][208][208][204][197]"
  45. 450 PRINT"      [207][210][193][206][199][197]              [195][200][197][210][210][217]"
  46. 455 PRINT"      [195][200][197][210][210][217]              [207][210][193][206][199][197]"
  47. 460 PRINT"      [193][208][208][208][204][197]              [208][207][212][193][212][207]"
  48. 465 GOSUB820
  49. 470 PRINT"[147] [215]HEN IT IS YOUR TURN, YOU MAY TELL ME"
  50. 475 PRINT" TO SWAP ANY TWO WORDS IN THE LIST. [201]"
  51. 480 PRINT" WILL THEN SWAP THOSE TWO WORDS AND"
  52. 485 PRINT" GIVE YOU ANOTHER TURN UNTIL THE LIST"
  53. 490 PRINT" IS IN ALPHABETICAL ORDER.
  54. 495 [141]820:[142]
  55. 700 [143] <YES>
  56. 705 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  57. 710 [151]54296,15:[151]54277,42:[151]54278,250
  58. 715 [151]54276,23:[151]54273,23:[151]54272,191
  59. 720 [129]T[178]1[164]150:[130]:[151]54276,23:[129]T[178]1[164]200:[130]
  60. 725 [151]54296,0:[142]
  61. 760 [143] <BLIP>
  62. 765 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  63. 770 [151]54296,6:[151]54277,42:[151]54278,250
  64. 775 [151]54276,23:[151]54273,23:[151]54272,191
  65. 780 [129]T[178]1[164]30:[130]:[151]54276,23:[129]T[178]1[164]50:[130]
  66. 785 [151]54296,0:[142]
  67. 790 [129]T[178]1[164]500:[130]:[142]
  68. 791 [129]T[178]1[164]1000:[130]:[142]
  69. 792 [129]T[178]1[164]2000:[130]:[142]
  70. 793 [129]T[178]1[164]3000:[130]:[142]
  71. 794 [129]T[178]1[164]4000:[130]:[142]
  72. 800 [153]"LOAD";:[151]UT,UU%:[151]UY,1:[151]UX,1:[151]646,5
  73. 801 [153]"      A TPUG EDUCATIONAL PROGRAM
  74. 802 PRINT"           FOR C 64 COMPUTER
  75. 803 [153]"              GRADES 3-6
  76. 804 GOSUB791
  77. 805 PRINT"                                        [146]";
  78. 806 PRINT"                                        [146]";
  79. 807 PRINT"             SWAP-MINERAL               [146]";
  80. 808 PRINT"                                        [146]";
  81. 809 PRINT"                                        [146]"
  82. 810 GOSUB791:GOSUB760
  83. 811 PRINT"          INSTRUCTIONS?  Y/N.
  84. 812 [161]UI$:[139]UI$[179][177]"Y"[175]UI$[179][177]"N"[167]812
  85. 813 [139]UI$[178]"Y"[167][141]400
  86. 814 [137]1000
  87. 820 [141]791:[141]760
  88. 823 [151]UN,0:[153][200](UD$,24);" (null)RESS (null)(null)ATNLENVAL PEEKATN(null) TO CONTINUE WAIT"
  89. 825 [161]UI$:[139]UI$[179][177]" "[167]825
  90. 830 [142]
  91. 835 [141]791:[141]760
  92. 837 [151]UN,0:[153][200](UD$,24);" (null)RESS SPACE BAR TO CONTINUE WAIT"
  93. 840 [161]UI$:[139]UI$[179][177]" "[167]840
  94. 845 [142]
  95. 850 UP[178]UP[170]1:[153]"LOAD"[200](UT$[170]UP$,21);[201](UP$[170]UG$[170][196](UP),18)
  96. 855 [153]" --------------------------------------"
  97. 860 [139]UH[178]0[167][153][200](UD$,24);[200](UP$,6);"ATNNSWER, THEN PRESS (null)VAL(null)(null)(null)(null)WAIT
  98. 865 UH=0:PRINT"":RETURN
  99. 875 PRINTLEFT$(UD$,24);"           ONE MOMENT PLEASE...     ":RETURN
  100. 880 GOSUB792:GOSUB760
  101. 900 US=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064
  102. 902 UT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087
  103. 904 UC$=CHR$(155):UV=1214:UF=196:UV=2238
  104. 905 UD$="":UP$="                                      "
  105. 909 RETURN
  106. 910 GOSUB900:PRINT"[147] "
  107. 920 GOTO800
  108. 1000 PRINT"[147]"UC$;:RESTORE:POKEUY,0:POKEUX,0
  109. 1005 UP=0
  110. 1010 :UG$=""
  111. 1205 IF BARRY=0THENDIMA(255):BARRY=1
  112. 1210 GOTO 1320
  113. 1225 REM  GOTO 1445
  114. 1230 PRINT" [200]ERE ARE[157][157][157][157][157][157][157][157]YOUR WORDS."
  115. 1231 REM   PRINT"[200]ERE ARE YOUR WORDS."
  116. 1235 GOSUB1515
  117. 1240 PRINT""
  118. 1245 PRINT:PRINT" [215]HICH WORDS[157][157][157][157][157][157][157][157][157][157][157]SHALL [201] SWAP?":PRINT
  119. 1250 PRINT" [198][201][210][211][212][160][215][207][210][196]?          [157][157][157][157][157][157][157][157]";:US$="":UL=15:UH=0:GOSUB35:C$(1)=UR$
  120. 1251 PRINT" [211][197][195][207][206][196][160][215][207][210][196]?         [157][157][157][157][157][157][157][157]";:US$="":UL=15:UH=0:GOSUB35:C$(2)=UR$
  121. 1255 UH=0:FORF=1TOR:IFC$(1)=W$(F)THEN1265
  122. 1260 NEXTF:PRINT" [195]HECK YOUR SPELLING.":GOTO1240
  123. 1265 UH=0:FORF=1TOR:IFC$(2)=W$(F)THEN1275
  124. 1270 NEXTF:PRINT" [195]HECK YOUR SPELLING.":GOTO1240
  125. 1274 REM    PRINT"[147]":GOSUB1515
  126. 1275 PRINT"[147]":GOSUB1515
  127. 1280 FORX1=1TO2
  128. 1285 FORX=1TOR
  129. 1290 IFC$(X1)=W$(X)THEND(X1)=X
  130. 1295 NEXTX:NEXTX1
  131. 1300 IFD(1)<D(2)THEN1310
  132. 1305 C$=C$(1):D(3)=D(1):C$(1)=C$(2):D(1)=D(2):C$(2)=C$:D(2)=D(3)
  133. 1310 GOSUB1525
  134. 1315 GOTO1665
  135. 1320 REM***INSTRUCTIONS
  136. 1325 POKEUT,UL%
  137. 1330 REM
  138. 1406 PRINT"[147] [212]YPE YOUR NAME AND PRESS [210][197][212][213][210][206][146][145][157][157][157][157][157][157][164][164][164][164][164][164]."
  139. 1410 PRINT"           ";:US$="":UL=15:GOSUB35:GOSUB865:J$=UR$
  140. 1415 IFASC(J$)<90THENJ1$=CHR$(ASC(J$)+128):J$=J1$+MID$(J$,2)
  141. 1420 PRINT"[147] [200]ELLO, "J$
  142. 1425 PRINT" [217]OU MAY HAVE FROM 3 TO 8 WORDS.":GOSUB760
  143. 1430 PRINT" [200]OW MANY WORDS DO YOU WANT ? ";:US$="2345678"
  144. 1434 GOSUB35:PRINT"[147]"
  145. 1435 R=VAL(UR$)
  146. 1445 REM   SELECTING WORDS
  147. 1450 WD=29:REM WD=NUMBER OF DATA WORDS
  148. 1455 FOR X = 1 TO R
  149. 1460 Y =INT(RND(TI)*WD)+1 : IF Y>WD THEN 1460
  150. 1465 FOR Z = 1 TO Y: READ N$: NEXT Z: W$(X)=N$: RESTORE:IFA(Y)=1THEN1460
  151. 1470 A(Y)=1
  152. 1475 NEXT X
  153. 1480 Z=0:FORQ=1TOR-1:IFW$(Q)<W$(Q+1)THENZ=Z+1
  154. 1485 NEXTQ:IFZ=R-1THEN1445
  155. 1490 GOTO1230:REM WD=29 - NUMBER OF DATA WORDS
  156. 1495 DATA"STONE","WATER","EARTH","IRON","STEEL","TIN","COPPER","ZINC","LEAD"
  157. 1500 DATA"BARIUM","FLINT","MARBLE","GRANITE","SALT","CHLORINE","MERCURY"
  158. 1505 DATA"CALCIUM","ANTIMONY","CEMENT","BAUXITE","ASPHALT","BORON","CARBON"
  159. 1510 DATA"GOLD","SILVER","ALUMINUM","CADMIUM","COAL","OIL","URANIUM"
  160. 1515 UH=0:FORX=1TOR:PRINTTAB(16)W$(X):PRINT:NEXTX:PRINT"":RETURN
  161. 1520 REEMPRINT"[145][145][145][145][145][145]":UH=1:FORQ=1TO6:PRINT"                            ":NEXTQ
  162. 1525 REM"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]SWAP WORDS
  163. 1526 [151]59467,16:[151]59466,200
  164. 1530 [143]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(MOVE WORD SIDEWAYS
  165. 1535 FOR X=1TO10
  166. 1540 FORY=1TOD(1):PRINT"":A=INT(RND(1)*255)+1:POKE59464,A:NEXTY
  167. 1545 PRINTTAB(15+X)" "C$(1)""
  168. 1550 FORY=1TOD(2):PRINT"":A=INT(RND(1)*255)+1:POKE59464,A:NEXTY
  169. 1555 PRINTTAB(16-X)C$(2)" "
  170. 1560 NEXT X
  171. 1565 PRINT""
  172. 1570 REM"[166][166][166][166][166][166][166][166][166][166][166]MOVE WORD UP & DOWN
  173. 1575 E1[178]D(1):E2[178]D(2)
  174. 1580 [129]X[178]1[164]([182](D(1)[171]D(2)))
  175. 1585 [129]Y[178]1[164]E1:[153]"":A[178][181]([187](1)[172]255)[170]1:[151]59464,A:[130]Y
  176. 1590 [153][163]26)"          CMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"C$(1)"":E1[178]E1[170]1
  177. 1595 [129]Y[178]1[164]E2:[153]"":A[178][181]([187](1)[172]255)[170]1:[151]59464,A:[130]Y
  178. 1600 [153][163]6)"          ONONCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"C$(2)"":E2[178]E2[171]1
  179. 1605 [130]X
  180. 1610 [143] MV WD BACK SIDWAYS
  181. 1615 [129]X[178]1[164]10
  182. 1620 [129]Y[178]1[164]D(1):[153]"":A[178][181]([187](1)[172]255)[170]1:[151]59464,A:[130]Y
  183. 1625 [153][163]5[170]X)" ";C$(2)""
  184. 1630 [129]Y[178]1[164]D(2):[153]"":A[178][181]([187](1)[172]255)[170]1:[151]59464,A:[130]Y
  185. 1635 [153][163]26[171]X)C$(1)"  "
  186. 1640 [130]X:[143]   PRINT""
  187. 1645 V$[178]W$(D(1)): W$(D(1))[178]W$(D(2)) :W$(D(2))[178]V$
  188. 1650 D[178]D(1):D(1)[178]D(2):D(2)[178]D
  189. 1655 [151]59467,0:[151]59466,0:[151]59464,0:[142]
  190. 1660 [129]X[178]1[164]R:[153]W$(X)" ";:[130]X:[153]"  ":[142]
  191. 1665 [143]***CHECK FOR CORRECT LISTING
  192. 1670 [129]T[178]1[164]R[171]1
  193. 1675 [139]W$(T)[179] W$(T[170]1)[167][130]T:[137]1685
  194. 1680 [137]1240
  195. 1685 [151]59467,16:UH[178]1:[153]"LOAD        (null)OU CHR$OT RIGHT$T, "J$".":[141]700
  196. 1686 [151]59466,85:[151]59464,0:[129]I[178]1[164]20:
  197. 1687 [153]"           (null)OU CHR$OT RIGHT$T, "J$".":[129]DL[178]1[164]5:[130]
  198. 1688 [153]"           (null)OU CHR$OT RIGHT$T, "J$".":[129]DL[178]1[164]5:[130]
  199. 1689 [151]59464,[181]([187](1)[172]255):[130]
  200. 1690 [141]700:[141]792:[141]760:[137] 1810
  201. 1810 [153]"LOAD     (null)OULD YOU LIKE TO PLAY AGAIN?":[141]760
  202. 1820 [153]"                (null) OR (null)  ";
  203. 1830 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[167]1830
  204. 1840 [139]R$[178]"N"[167] 1910
  205. 1850 R[178]R[170]1:[153]" "
  206. 1860 [153]"          (null)HANKS, "J$   :[141]700:[141]790
  207. 1870 [153]"          (null)OU HAD"R[171]1"WORDS.":[141]760:[141]792
  208. 1880 [153]"          (null)OW, TRY"R"WORDS.":[141]793:[141]760
  209. 1890 [137]1420
  210. 1910 [153]"LOAD   (null)HANKS FOR PLAYING, "J$".":[141]792
  211. 1920 [153]"   PEEKYE-BYE FOR NOW.
  212. 1930 GOSUB700:GOSUB794
  213. 1940 GOSUB760:GOTO800
  214. 2030 PRINT"[147]     [215]OULD YOU LIKE TO PLAY  AGAIN?"
  215. 2035 PRINT"                [217] OR [206]  ";
  216. 2040 GETR$:IFR$<>"Y"ANDR$<>"N"THEN2040
  217. 2041 IFR$="Y"THEN RESTORE:GOTO1420
  218. 2050 PRINT"[147] [210]ETURNING TO [205][197][206][213]
  219. 2055 [147]"MENU",8
  220. 2060 [138]
  221. 2065 [128]
  222. 2099 :
  223. 2100 [143] DERIVED FROM COMMODORE ONTARIO      EDUCATIONAL SOFTWARE PROJECT 1983
  224. 2110 [143] PROJECT DIRECTOR: FRANK WINTER
  225. 2120 [143] PROGRAM NAME: SWAP
  226. 2130 [143] WRITTEN BY THE SHADOW
  227. 2140 [143] REVISED BY SANDRA BLANKENFELDT
  228. 2150 [143] UPDATED BY BILL CUMBERLAND 1990
  229.